VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form frmDetalleProductos 
   BackColor       =   &H00404040&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Detalle de Productos por Contrato"
   ClientHeight    =   6492
   ClientLeft      =   36
   ClientTop       =   300
   ClientWidth     =   10608
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   6492
   ScaleWidth      =   10608
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdSeleccionados 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Ok"
      Height          =   612
      Left            =   8400
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   5760
      Width           =   732
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00404040&
      Height          =   5412
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   10212
      Begin MSComctlLib.ListView ListadodeProductos 
         Height          =   4212
         Left            =   120
         TabIndex        =   6
         Top             =   960
         Width           =   9732
         _ExtentX        =   17166
         _ExtentY        =   7430
         View            =   3
         LabelWrap       =   -1  'True
         HideSelection   =   0   'False
         AllowReorder    =   -1  'True
         Checkboxes      =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   16777215
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   6
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "codigo Contrato"
            Object.Width           =   2646
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "Nombre Producto"
            Object.Width           =   9701
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "Fecha Venta"
            Object.Width           =   0
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   3
            Text            =   "Codigo Producto"
            Object.Width           =   0
         EndProperty
         BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   4
            Text            =   "Cantidad"
            Object.Width           =   1147
         EndProperty
         BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   5
            Text            =   "Precio"
            Object.Width           =   0
         EndProperty
      End
      Begin VB.Label Label6 
         BackColor       =   &H00404040&
         Caption         =   "Detalle de Productos"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.6
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   252
         Left            =   240
         TabIndex        =   4
         Top             =   720
         Width           =   2292
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         BackColor       =   &H00404040&
         Caption         =   "Numero de Contrato"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   18
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   372
         Left            =   1560
         TabIndex        =   3
         Top             =   240
         Width           =   3372
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         BackColor       =   &H00404040&
         Caption         =   "Label3"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   18
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   372
         Left            =   5280
         TabIndex        =   2
         Top             =   240
         Width           =   1692
      End
   End
   Begin VB.CommandButton CmdSalir 
      BackColor       =   &H00FFC0C0&
      Caption         =   "&Salir"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   6.6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   9240
      Picture         =   "frmDetalleProductos.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   5760
      Width           =   735
   End
End
Attribute VB_Name = "frmDetalleProductos"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CmdSalir_Click()
        Unload Me
End Sub

Private Sub Form_Load()
    Left = Screen.Width / 2 - Width / 2
    Top = (Screen.Height / 2 - Height / 2) - 800
    LimpiarObjetos Me
    ModoEdicion False, Me
    Label4.Caption = codigoContrato
    DetallePromociones
    
    
    'para que comience marcandolos todos
    If ListadodeProductos.ListItems.Count > 0 Then
        Dim i As Integer
        For i = 1 To ListadodeProductos.ListItems.Count
            ListadodeProductos.ListItems(i).Checked = True
        Next i
    End If

    
End Sub

Private Sub cmdSeleccionados_Click()
    
    On Error Resume Next
    
    If DE.rsBuscarEmpleadoenPlaBonos.State = adStateOpen Then DE.rsBuscarEmpleadoenPlaBonos.Close
    DE.BuscarEmpleadoenPlaBonos Fecha, codigoEmpleado
    
    If DE.rsBuscarEmpleadoenPlaBonos.EOF Then
    
        'guardar el encabezado si no existe
'            DE.plaMBonos_Encabezado "I", val(txtcodigobono.) Fecha, codigoEmpleado, ValorBono, 0, 0
            Dim i, cantidad, preciounitario   As Integer
            Dim CodigoProducto As String
        Else
    
            ' si ya existe
            With DE.rsBuscarEmpleadoenPlaBonos
                    ValorBono1 = .Fields("valor_bono")
 '                   DE.plaMBonos_Encabezado "u", Format(Fecha, "yyyy-mm-dd"), codigoEmpleado, (ValorBono1 + ValorBono), 0, 0
            End With
    End If
        
        
                   
                If ListadodeProductos.ListItems.Count > 0 Then
                
                If DE.rsProductosDelContrato.State = adStateOpen Then DE.rsProductosDelContrato.Close
                   DE.ProductosDelContrato codigoContrato
                   
                    For i = 1 To ListadodeProductos.ListItems.Count
                        If ListadodeProductos.ListItems(i).Checked Then
                            ListadodeProductos.ListItems(i).Selected = True
                            CodigoProducto = ListadodeProductos.ListItems(i)
                             'Buscar productos y guardarlos en detalle
                                     DE.plaMBonos_Detalle "I", Fecha, codigoEmpleado, codigoContrato, 1, CodigoProducto, 0
                        End If
                    Next i
                End If
                
    
'@Accion char(1),
'@Fecha   datetime,
'@Codigo_Vendedor   char(8),
'@cCodigo_Contrato   char(10),
'@Correlativo int,
'@cCodigo_Producto   char(20),
'@Valor_Distribucion
    
    
    MsgBox "Productos Anexados.."
    Unload Me
    Exit Sub
salir:
    MsgBox "Ya se realizo la digitacion de este bono, para este cliente, numero de contrato y productos"
End Sub

Private Sub cmdDesmarcar_Click()

 If ListadodeProductos.ListItems.Count > 0 Then
        Dim i As Integer
        For i = 1 To ListadodeProductos.ListItems.Count
            ListadodeProductos.ListItems(i).Checked = False
        Next i
    End If


End Sub


Private Sub DetallePromociones()

    On Error Resume Next

    Dim dTotal As Double
    Dim itm As ListItem
    Dim I_contador As Integer
  
    I_contador = 0
    dTotal = 0
    
    
    Me.ListadodeProductos.ListItems.Clear
    If DE.rsProductosDelContrato.State = adStateOpen Then DE.rsProductosDelContrato.Close
       DE.ProductosDelContrato codigoContrato
 
    While Not DE.rsProductosDelContrato.EOF
       Set itm = Me.ListadodeProductos.ListItems.Add(, , DE.rsProductosDelContrato.Fields("Codigo_Producto").Value)
            itm.SubItems(1) = DE.rsProductosDelContrato.Fields("nombre_producto").Value
            itm.SubItems(2) = DE.rsProductosDelContrato.Fields("Fecha_de_Venta").Value
            itm.SubItems(3) = DE.rsProductosDelContrato.Fields("Cantidad").Value
            itm.SubItems(4) = DE.rsProductosDelContrato.Fields("Precio").Value
            DE.rsProductosDelContrato.MoveNext
    Wend
    


End Sub

